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FOREWORD 


This  is  the  fourteenth  report  in  the  Data  Reduction  Program  Documentation 
series.  It  is  dated  accor  ng  to  the  date  of  completion  of  the  documentation.  No 
implication  is  made  that  tnis  program  will  not  subsequently  be  modified,  amended, 
or  superseded;  on  the  contrary,  the  history  of  radar  data  processing  is  one  of  con¬ 
tinuous  evolution  of  techniques,  and  it  is  unrealistic  to  assume  that  steady -state  has 
been  reached. 

The  preparation  of  reports  in  this  series  is  under  the  Editorship  of  Charles  R. 
Berndtson  of  Lincoln,  and  of  D.  Nessman  and  R.  French  of  Philco-Ford  Corporation. 
Inquiries,  suggestions,  corrections,  criticisms,  and  requests  for  additional  copies 
should  be  directed  to  C.  R.  Berndtson. 

The  principal  contributor  to  this  report  was  G.  L.  Shapiro  (Philco-Ford). 

Due  to  the  intricate,  evolutionary  manner  in  which  the  programs  came  into  being, 
the  editors  regret  that  it  is  in  general  impossible  to  give  due  credit  to  all  --  mathema¬ 
ticians  or  radar  analysts  or  programmers  --  who  contributed  to  the  definition  and 
writing  of  the  programs. 


Alan  A.  Gromeistein 
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COMMON  SYMBOLS  AND  ABBREVIATIONS 


(The  units  given  for  certain  quantities  are  the  units  commonly  used  for  those 
quantities,  unless  otherwise  noted, ) 

ADT  ALCOR  Data  Tape 

AGC  Automatic  Gain  Control 

ALCOR  ARPA -Lincoln  C-band  Observables  Radar 

ALTAIR  ARPA  Long-Range  Tracking  and  Instrumentation  Radar 

Alt  Altitude  (km) 

APS  Average  Pulse  Shape 

ARS  ALTAIR  Recording  System 

ARTP  ALTAIR  Real  Time  Program 

ATC  Angle  Track  Comole 

Avg  Average,  Averaging 

Az  Azimuth  (deg) 

c  Speed  of  Light 

CADJ  Adjusted  Calibration  Constant  (db) 

C-band  ALCOR  frequency,  5664  MHz  (NB)  and  5667  MHz  (WB) 

DBLT  Wide  Band  Pulse  Doublet 

DCO  Designations  and  Communications  Operator 

El  Elevation  (deg) 

EOF  End  of  File 

GMT  Greenwich  Mean  Time 

h  Hours 

Hz  Hertz 

IF  Intermediate  Frequency 

in  Inches 

IRV  Inter -  Range  Vector 

LC  Left  Circular  Polarization 

lsb  Least  Significant  Bit 

min  Minutes 

Narrow  Band 

Non -real  Time  Precision  Orbit  Determination  Program 


NB 

NRTPOD 


POD 

Phase 

PRF 

PRI 


SDBLT 

S/N 

T 

TAL 

TGC 

Tr 


WB 

WBS 

WTR 


Project  PRESS  Operation  and  Data  Summary  Report 
Presented  in  deg 

Pulse  Repetition  Frequency  (pps) 

Pulse  Repetition  Interval  (s) 

Pulses  per  second 
Points 

Quantum  Unit 

Range  (km) 

Range  Pate  (km/s) 

Radians 

R?  t  Circular  Polarization 
Radar  Cross  Section  (dbsm) 

Radio  Frequency 
Receiver  Gain  Control 
Range  Track  Console 

Seconds 

Standard  Deviation  of  Wake  Velocity 

Wide  Band  Slaved  Pulse  Doublet 
Signal -to -noise  Ratio 

Time 

Time  After  Launch  (s) 

Transmitter  Gain  Control 
Traverse  Angle  (deg) 

ALTAIR  Frequency;  415  MHz 

Velocity 

Doppler  Velocity 

Mean  Wake  Velocity 

ALTAIR  Frequency;  155.5  MHz 

Wide  Band 

Wide  Band  Slaved 

Western  Test  Range 

Total  Off-axis  Angle  (deg) 

Wavelength 
Denotes  Multiplication 


PLOW  DIAGRAM  SYMBOLS 


PROCESS,  ANNOTATION 


CD 


TERMINATOR 


SUBROUTINE:  where  NAME  la  the  entry 
call  into  the  subroutine 


CONNECTOR:  where  P  epeclflea  a  page  In  the 

flow  diagram,  and  L  designates 
a  statement  numl-.r  In  the  program 
Hating  or  a  reference  point  in  the 
flow  diagram 

CONNECTOR:  where  X  Implies  a  continuation 
of  the  diagram  to  the  next  page 


INPUT /OUTPUT  OPERATION 


MAGNETIC  TAPE 


PUNCHED  CARD 


DISK 
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ALC102 


I.  PURPOSE  AND  UTILIZATION 

A.  Source  of  Data 
ALCOR1 

B.  Data  Input 

ALCOR  data  tape  (ADT) 

C.  Description 

ALC102  is  designed  to  check  an  ADT  by  listing  attenuation  and  PRF 
changes,  missing  pulses,  parity  errors,  and  selected  metric  and  A/D  count  data. 

D.  Output 

A  listing  of  calibration  record  data,  selected  data  records,  parity 
errors,  and  attenuation  and  PRF  changes. 
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II.  DESCRIPTION 


,  0 
ALC102  is  designed  to  list  all  attenuation  changes,  PRF  changes,  missing 

pulses,  parity  errors,  and  selected  metric  and  A/D  count  data.  The  data  records 

are  examined  to  determine  if  the  range  gates  are  being  manually  slewed  and  the 

records  flagged.  A  listing  of  calibration  constants  and  tables  is  also  provided. 


A. 


Calibration  Data 


The  following  information  is  listed  from  the  calibration  record. 


1.  Calibration  Constants 


Constant  (db) 
NB  LC 
NB  RC 
NB  LC  peak 
WB  LC 
WB  RC 


Listing 

Label 

KRCS  (NB  LC) 
KRCS  (NB  RC) 
KRCS  (NB  PK) 
KRCS  (WB  LC) 
KRCS  (WB  RC) 


2.  Power  Monitor  Constants 


Constant 

NB  intercept  (dbw) 

NB  slope  [db/log  (A/D  counts)] 
WB  intercept  (dbw) 

WB  slope  [db/log  (A/D  counts)] 


Listing 

Label 

PWR  (NB  INT) 
PWR  (NB  SLP) 
PWR  (WB  INT) 
PWR  (WB  SLP) 


Calibration 
Record  Word  No. 

624 

625 

626 

627 

628 


Calibration 
Record  Word  No. 

620 

621 

622 

623 


3,  Angle  Bias 

Az  bias  (deg)  and  El  bias  (deg)  are  found  in  Calibration  Record 
Word  Nos.  602  and  603.  They  are  called  ABIAS  and  EBIAS  in  the  listing. 
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4. 


Phase  Differential 


The  phase  differential  (rad)  between  the  reference  channel  and 

'  !'  ”■ 

the  Az  channel  is  found  in  Calibration  Record  Word  No.  5j&,  The  phase  differential 
(rad)  between  the  reference  channel  and  the  El  channel  is  found  in  Calibration  Record 
Word  No.  597.  The  differentials  are  called  AGAMA  and  EGAM/  in  the  listing. 


5 .  Angle  Error  Scaling  Factors 


Tlie  scaling  factors  (i*evolutions/unit  error)  for  determining 
monopulse  angle  errors  are  found  in  Calibration  Record  Word  Nos.  612  (Az)  and  613 
(El).  They  are  called  AZGRAD  and  ELGRAD  in  the  listing. 


6.  Range  Bias  Constants 

Constant  Qjls) 

RBIAS(l) 

RBIAS(2) 

RBIAS(3) 

RBIAS(4) 

RBIAS(5) 

RBIAS(6) 

RBIAS(7) 

RBIAS(8) 

7.  Range  Error  Gradients 

Gradient 
(QU/unit  error) 

RGRAD(l) 

RGR\D(2) 

RGRAD(3) 

RGRAD(4) 

RGRAD(5) 

RGRAD(6) 


Calibration 
Record  Word  No. 

604 

605 

606 

607 

608 

609 

610 
61 1 

Calibration 
Record  Word  No. 

614 

615 

616 

617 

618 
619 


Listing 

Label 

NB  PF  CENT 
NB  PP/OP  LEAD 
NB  PP/OP  TRAIL 
NB  OP  CENT 
WB  PP  CENT 
WB  OP  CENT 
PP  SSA  BIAS 
OP  SSA  BIAS 
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8. 


AGC  Noise  Level 


Level 

Listing 

Calibration 

(A/D  counts) 

Label 

Recoi  '  Word  No. 

PP/NB 

NOISE(l) 

598 

PP/WB 

NOISE(2) 

599 

OP/NB 

NOISE(3) 

600 

OP/WB 

NOISE(4) 

601 

9.  DBLT  Phase 

DBLT  phase 

noise  (rad)  and  phase  bias  (rad)  are  found  in 

Calibration  Record  Word  Nos.  645  and  646,  The 

JITTER  in  the  listing. 

10.  Attenuation  Constants 

Listing 

phase  noise  is  called  PHASE  RMS 

Calibration 

Constant  (db) 

Label 

Record  Word  No. 

16  step  LC  IF 

PIFA 

512-527 

16  step  RC  IF 

OIFA 

528-543 

16  step  reference 
channel  IF 

RIFA 

544-559 

16  step  Az  channel  IF 

AZIFA 

560-575 

16  step  El  channel  IF 

ELIFA 

576-591 

LC  fast  switch 

PFSA 

592 

RC  fast  switch 

OFSA 

594 

LC  slow  switch 

PSSA 

593 

RC  slow  switch 

OSSA 

595 

LC  slow  switch  loss 

PSSL 

629 

RC  slow  switch  loss 

OSSL 

630 
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11. 


Auxiliary  Range  Scan  Parameters 


Altitude 

Calibration 

Parameter 

Regime 

Record  Word  No. 

No.  of  dwells/scan 

Endoatmospheric 

633 

Exoatmospheric 

639 

Initial  range  offset  (m) 

Endoatmospheric 

634 

Exoatmospheric 

640 

Range  offset  increment 

Endoatmospheric 

635 

(m) 

Exoatmospheric 

641 

Total  of  pulses/dwell 

Endoatmospheric 

636 

Exoatmospheric 

642 

The  upper  and  lower  auxiliary  WB  scan  altitude  limits  (km)  are 
found  in  Calibration  Record  Word  Nos.  631  and  632.  The  upper  and  lower  DBLT 
altitude  limits  (km)  are  found  in  Calibration  Record  Word  Nos.  643  and  644. 

1 2 .  Beacon-Skin  Range  Separation  (ps) 

Beacon  Calibration 

Code  Record  Word  No. 

1  649 

2  650 

3  651 

4  652 

13.  Amplitude  and  Phase  Reference  Tables 

Calibration  Record  Word  Nos.  256  to  383  contain  amplitude 
(db)  for  the  LC  and  RC  channels;  Calibration  Record  Word  Nos.  384  to  511  contain 
amplitude  (db)  for  the  peak  detector  channel.  Phase  is  found  in  Calibration  Record 
Word  Nos.  1  to  2  55.  These  data  are  correlated  with  the  A/D  count. 

B.  Time 

Time  is  listed  in  GMT  h,  min,  s,  and  ms;  in  GMT  total  s,  and  in  TAL. 
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c. 


R 


R  =  IRANGE  +  TRBIAS  +  TTCOR  +  RRCOR  -  RCORF 

where 

IRANGE  is  uncorrected  R 

TRBIAS  is  range  bias  [computed  from  RBIAS(l)  to  RBIAS(8)] 

TTCOR  (transit  time  correction)  =  RR/c 
RRCOR  is  range  doppler  coupling  correction 
RCORF  is  tropospheric  refraction  correction 

D.  Pulse  No. 

Pulse  No.  is  called  PRI  in  the  listing. 

E.  Az 

Az  =  IAZ  +  AZBIAS 

where 

IAZ  is  Az  encoder  angle  found  in  Data  Record  Bytes  709-711 
AZBIAS  is  Az  bias  (Calibration  Record  Word  No.  602) 

F.  El 

El  =  IEL  +  ELBIAS  -  ECORF 

where 

IEL  is  El  encoder  angle  found  in  Data  Record  Bytes  706-708 
ELBIAS  is  El  bias  (Calibration  Record  Word  No.  603) 

ECORF  is  tropospheric  refraction  correction 

G.  _R 

R  is  obtained  from  Data  Record  Bytes  805  to  807.  This  R  is  computed 
by  the  ARTP  and  only  approximates  the  true  R. 

H.  Alt_ 

2  2  — 

Alt  =  (R  +  R  +  2RR  sin  El)2  -  R 
.  e  e  e 

where 

R  =  radius  of  earth 

e 
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J. 


PRF 


PRF  is  IPRF,  determined  from  the  transmitted  PRF  for  the  particular 
waveform  on  the  ADT. 

K.  Angle  Offsets 

## 

The  angle  offsets  (ATr  and  AE1)  are  determined: 

P  /20 

ATr  =  AZGRAD  (2  tt)  (10  2  )  (cos  Zl) 

P  /20 

AE1  =  ELGRAD  (2  tt)  (10  6  )  (cos  Z2) 

where 

AZGRAD  is  the  traverse  scaling  factor  (revolutions/uniterror), 
Calibration  Record  Word  612 

ELGRAD  is  the  elevation  scaling  factor  (revolutions/unit  error), 
Calibration  Record  Word  613 

10P/20  t|ie  no miaiized  error  voltage 

P  (db)  =  ATr  (db)  -  REF  (db) 
a 

Pp  (db)  =  AE1  (db)  -  REF  (db) 

ATr  (db),  AE1  (db),  and  REF  (db)  are  found  by  indexing  the  amplitude 
reference  table  (Calibration  Record  Words  256-383)  with  the 
log  detector  counts  obtained  in  the  ADT  data  record  for  the 
ATr,  AE1,  and  reference  channels. 

Zl  =  ATr  phase  -  REF  phase  +  AGAMA 

Z2  =  AE1  phase  -  REF  phase  +  EGAMA 

ATr  phase,  AE1  phase,  and  REF  phase  are  found  by  indexing  the  phase 
reference  table  (Calibration  Record  Words  1-255)  with  the  phase  detector  counts  obtained 
in  the  data  record. 

AGAMA  is  a  phase  offset  between  the  reference  channel  and  the  ATr 
channel,  found  in  Caliuration  Record  Word  59b 

EGAMA  is  a  phase  offset  between  the  reference  channel  and  the  AE1 
channel,  found  in  Calibration  Record  Word  597 


u 

See  Ref.  2,  Appendix  F. 

## 

Called  DELA  and  DELE  in  listing. 
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L. 


Peak  Transmit  Power 


Peak  transmit  power  (db)  is  determined: 

NB  POWER  =  PWRCN  +  PWRSN  log  XPKPWR 
WB  POWER  =  PWRSN  +  PWRSW  log  XPKPWR 

where 

PWRCN  is  Calibration  Record  Word  620 
PWRSN  is  Calibration  Record  Word  621 
PWRCW  is  Calibration  Record  Word  622 
PWRSW  is  Calibration  Record  Word  623 
XPKPWR  is  Data  Record  Byte  344 

M.  40  Log  R 

40  log  R  is  a  term  m  the  equation  used  to  convert  A/D  count  to  dbsm. 

N.  Total  Attenuation 

The  total  LC  (XPPAGC)  and  RC  (XOPAGC)  attenuation  is  computed  in 
subroutine  UNPACK  and  transferred  to  the  main  program  through  the  common  state¬ 
ment  The  equations  used  for  attenuation  depend  on  the  date  of  the  mission. 

1.  Missions  between  15  February  1970  and  14  October  1970 

XPPAGC  (db)  =  PIFA(I)  +  PFSA(J)  +  PSSL(K)  +  PSSA(L)  -  16 
XOPAGC  (db)  =  OIFA(I)  +  OFSA(J)  +  OSSL(K)  +  OSSA(L)  -  16 

where 

PIFA  and  OIF  A  are  sixteen  step  IF  attenuators.  The 

attenuation  is  found  in  Calibration  Record  Words  512-527 
(PIFA)  and  528-543  (OIF A)  as  a  function  of  I. 

I  is  found  in  ADT  Data  Record  Byte  No.  787  [Bits  1-4  (PIFA), 
Bits  5-8  (OIF  A)]. 

PFSA  and  OFSA  are  fast  switch  attenuators.  T*.e  magnitude 
of  the  attenuation  is  given  in  Calibration  Record  Words  592 
(PFSA)  and  594  (OFSA). 


8 


J  is  found  in  ADT  Data  Record  Byte  No.  717  [Bit  7  (PFSA)  and 
Bit  8  (OFSA)  ]. 

PSSL  and  OSSL  are  slow  switch  losses.  The  magnitude  of  the 
loss  is  found  in  Calibration  Record  Words  629  (PSSL)  and 
630  (OSSL). 

K  has  three  possible  values  determined  from  the  ADT  data  record  as  follows: 

For  PSSL 

Byte  716  Byte  717 


Bit  1  Bit  3  K 

0  0  # 

0  1  0 

1  0  1 

1  1  If 

For  OSSL 

Byte  716  Byte  717 

Bit  2  Bit  4  _K 

0  0  # 

0  1  0 

1  0  1 

1  1  # 


PSSA  and  OSSA  are  slow  switch  attenuators.  The  magnitude 
of  the  attenuation  is  given  in  Calibration  Record  Words  593  (PSSA)  and  595  (OSSA). 

L  is  found  in  ADT  Data  Record  Byte  815  [Bit  5  (PSSA)  and 
Bit  6  (OSSA)] . 

Note:  If  K  is  zero,  PSSA  and  OSSA  are  not  used  and  L 
need  not  be  checked 

2.  Missions  after  15Qctobe  197 

XPPAGC  (db)  =  PIFA(I)  +  PFSA(J)  +  PSSA(L)  -  16 
XOPAGC  (db)  =  OIFA(I)  +  OFSA(J)  +  OSSA(L)  -  16 

_ 

Indeterminate,  therefore  R.CS  data  cannot  be  calibrated.  When  this  occurs,  a  flag 
(ISSERR)  is  set  for  the  main  program,  and  XPPAGC  and  XOPAGC  do  not  include  slow 
switch  losses  or  attenuation. 
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L  is  determined  by  combining  the  command  to  the  slow  switch 
attenuators,  found  in  ADT  Data  Record  Byte  815  [Bit  5  (PSSA)  and  Bit  6  (OSSA)],  and 
the  status  readback  of  the  attenuators,  found  in  Byte  754  [Bits  5  and  6  (PSSA)  and  Bits 
7  and  8  (OSSA)l . 

L  has  three  possible  values  determined  from  the  ADT  data 

record  as  follows: 


For  PSSA 


Byte  815 
Bit  5 

0 

0 

1 

1 

For  OSSA 

Byte  815 
Bit  6 

0 

0 

1 

1 


O. 


817,  Bits  1-4,  where: 


Byte  754 
Bit  5 

N/A 

N/A 

0 

1 


Byte  754 
Bit  7 


N/A 

N/A 

0 

1 


Byte  754 
Bit  6 

0 

1 

N/A 

N/A 


Byte  754 
Bit  8 

0 

1 

N/A 

N/A 


# 

0 

# 

1 


# 

0 

# 

1 


Pulse  Type 

The  type  of  returned  pulse  is  obtained  from  Data  Record  Byte 


Code  Pulse  Return 

0  NB 

1  WB 

2  Phantom  (not  expected  on  ADT) 

3  WBS 

4  not  used 

5  DBLT 

6  not  used 

7  SDBLT 


Indeterminate.  When  this  condition  exists,  L  is  set  equal  to  its  previous  value 
(previous  pulse),  XPPAGC  and  XOPAGC  computed,  and  a  flag  (ISSERR)  set  for  the 
main  program. 
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Range  Offset 

Range  offset  (m)  is  obtained  from  Data  Record  Bytes  832,  833,  and  834. 
A/D  Count 


LC  and  RC  amplitude  and  phase  A/D  counts  are  given  for  selected 


III. 


OPERATION 


A.  Input 
Title 

Launch  time  (GMT  total  ms) 

Start  and  stop  times  (pulse  no.) 
Waveform  and  Polarization 
Averaging  and  skip  intervals  (pulses) 
Start  and  stop  range  gates  for  listing 
Option  to  list  attenuation  changes 

A  sample  input  is  given  in  Appendix  A. 

CARD!  (110,  715,  2110,  IX,  A4) 


(Col.) 

1-10 

ILNCH 

Launch  time  in  total  GMT  ms 

11-15 

NBAND 

0  =  NB;  1  =  WB 

16-20 

IPOLAR 

0  =  LC:  1  =  RC 

21-25 

ICELP1 

jj: 

Initial  gate  for  listing  (46) 

26-30 

ICELP2 

jj: 

Final  gate  for  listing  (60) 

31-35 

INTAV 

frfr 

No.  of  pulses  in  averaging  interval 

36-40 

ISKIP 

No.  of  pulses  between  each  averaging  interval  (499)  ;  if  a 

41-45 

NIFAT 

negative  no.  is  input,  no  pulses  are  skipped 

Attenuation  change  option:  0  =  no  changes;  1  =  print  changes 

46-55 

NSTART 

First  pulse  no.  of  processing  interval 

56-65 

NSTOP 

Last  pulse  no.  of  processing  interval 

67-70 

TITL 

Title  for  listing 

If  left  blank,  program  sets  to  indicated  value. 
Program  always  sets  INTAV  to  1. 
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B. 


Output 


LISTING 
Calibration  record  data 
GMT  h,  min,  s,  and  ms 
GMT  total  s 
TAL 
R 

Pulse  no.  (called  PRI  in  listing) 

Az 

El 

R  (m/s) 

Alt 

PRF 

Tr  and  El  errors  (called  DELA  and  DELE  in  listing) 
Peak  transmit  power  (db) 

40  log  R 

Total  LC  and  RC  attenuation  (db) 

R  offset  (m) 

LC  and  RC  amplitude  and  phase  (A/D  counts) 

When  they  occur,  the  following  are  printed: 

PRF  changes 
Parity  errors 

Attenuation  changes  (optional) 

Improper  pulse  no.  progression 

ISSERR,  denoting  that  the  slow  switch  attenuation 
is  indeterminate  and  the  data  are  invalid 
(see  Section  II,  N.) 

IMOVP  and  IMOVO2 

A  sample  listing  is  given  in  Appendix  B. 
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W 


•^pspp 


'.’IT- 


PROGRAM  LIMITATIONS 


None 


V. 


PROGRAMMING 


A.  LQ2ALC  (see  Appendices  C  and  D. ) 

L02ALC  is  the  control  section  of  ALC102.  L02ALC  reads  the  input 
ca  rds,  detects  changes,  performs  the  calculations,  and  prints  the  data. 

B.  HEDADT  ( ,ee  Appendix  E . ) 

Subroutine  HEDADT  unpacks  the  ADT  header  record  which  contains 
bandwidth,  reel  no.,  WTR  no.,  date  of  mission,  and  mission  designator.  The  call 
statement  is  HEDADT  [ISIG,  INBUF(l),  IEQM(l)] 

INPUT 


INBUF(l) 

First  word  in  the  ADT  header  record 

OUTPUT 

IEQM(l) 

IZBAND 

(bandwidth:  1  =  WB,  0  =  NB) 

IEQM(2) 

ITREEL 

(reel  no. ) 

IEQM(3) 

ITWTR 

(WTR  no.) 

IEQM(4) 

IMTH 

IEQM(5) 

IDAY 

(Date  of  test) 

IEQM(6) 

IYR 

IEQM(7-9) 

ITDESG 

(mission  designator) 

2 

(j.  UNPACK  (see  Appendix  F. ) 

Subroutine  UNPACK  unpacks  the  raw  data  from  the  ADT,  and  trans¬ 
lates  it  into  a  format  usable  by  the  IBM  360/67  computer. 

__  _ 

Not  used. 

tf#INBUF(2)  to  INPUF  (1803)  contain  the  remaining  words  in  the  record. 
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D.  READJS2 

The  first  call  to  subroutine  READJS  opens  the  file  and  reads  the  ADT 
header  record.  The  second  call  to  READJS  reads  the  ADT  calibration  record  and 
stores  the  values  in  a  buffer  area.  L02ALC  extracts  the  individual  calibration  values 
it  requires.  Each  subsequent  call  to  READJS  reads  an  ADT  data  record  consisting  of 
eight  ALCOR  pulses. 

E.  REFC  (see  Appendix  G.) 

The  tropospheric  refraction  correction  subroutine,  REFC,  is  based 

3 

on  tropospheric  refraction  tables  in  PPP-36.  A  modified  version  of  this  subroutine 
is  now  in  use. 

The  call  statement  is  REFC  (E,  R,  DEE,  DRR). 

E  =  Uncorrected  El  (must  be  between  0°  and  90°) 

R  =  Uncorrected  R 

DEE  =  El  tiopospheric  correction 

DRR  =  R  tropospheric  correction 

The  corrected  values  to  be  computed  after  exiting  from  the  REFC 

subroutine  are: 

El  =  E-DEE 
R  =  R-DRR 
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APPENDIX  B 
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APPENDIX  C 


L02ALC  PROGRAivI  LISTING 


c 

OOUBLt  PRECISION  XLNCH.D1000, TAL , TGTL , TOOLD , TTOT 
C 

0  I  MENS  I  UN  I EQM ( 9 ) , I TPESGI 3 ) 

DIMENSION  IPRF^(8),  ITRFSCB) 

DIMENSION  XFZLM 2  55) , ILCOUI (25b) , IRC OUT (25b) • I DATCI 3) 

DIMENSION  F  AZL  TNI  255)  ,  JCOUNTI 255  )  ,  NCOUM  I  128  ) 

DIMENSION  XL  C  SI 'Ml  170)  ,  XRCSUMI  170)  , 

1  XATBL  < 128) , XLCDBI  170) .XRCDBI l 70 ) , ILCAMPI  170,  ,  IRCAMPI  l 70) 

2,  IICPHAI  170)  ,  TRCPHAI  l  70 ) ,  YPRN  T (  170) 

01  MENS  I  UN  I OU  T  f  I/O) , I AVLC I  170  )  ,  I AVRCI  170) , CD  IASI  8) 

DIMENSION  XNBUF  (  1  803)  ,PIFA<  16)  , 0  I F  A  <  16)  ,  XKRCSI5) 

DIMENSION  XWPLI (8) ,XWPL2(ti) 

DIMENSION  DM  l  A  )  ,  X  PK  T  BL  (  1  28  )  ,  BE  AC  SP  (  A  ) 

C 

COMMON/ I  COM/ | N"OF  <  1803)  ,  I  AZ , I  EL , I NDEX, I PPKC  S, I CRS , I RANuE , I PKPWR, I R 
IDOT , I AL I , 1N0AZ , JNDAZ, INOEL , IRB54, I RB85, ICPRCS,  I240B  l,  l  240B2  ,  1  24063 
It  I  24 l B 1 » I 7  4 lB2i  I  24  l B 3 , XPPAGC*  lbETA,NEWA, I EAND*NSW,RBI AS<  8)  » I SVPRI  « 
1IHRS»IM1N,ISEC,IMSEC»IS1A|(21)*TR8IAS»ISTAT1,ISTAT2,ISTAT3,ISTAT4, 
llALSWf ISTSWtNBWBf  I S I  GNU, I 2  7B12 , JCON , N  8  EG , NENC , I TST , NCMPR I , XOPAGC , 

1  I TBAND, I T APNL,  T  PKE , I  POLAR ,ISSERR,PIFA,C1FA,PFSA,0FSA,PSSA,CSSA, 
lPSSL.OSSL,  ICuOr  ,  I  273B5,  I  273B6, 1273(17,  I  2  7  3B  8  ,  I  MC  VP  ,  I  MCVC  ,  I  OF  F  S  T  , 

1 1  D  A  T  (  6  8  2  ) 

C 

EGO  I  VALENCE  (  1 1.  C  AMP  <  l  !  ,  I  DA  T(  l  )  )  ,  (  I  LCPHAI  1  )  ,  I  D  AT  (  1  7  1  )  )  ,  (  I  RC  AMP  (  1  )  , 

1 1  DAE ( 34  1 ) ) , (  IRCPHAI  l) , IDAT<  51 1 )  ) 

EQUIVALENCE ( XN»UF(  l)  , I NbOF (  1  )  ) 

EQUIVALENCE  (I  F  QM  (  l  ) ,  I  Z  BAND  >,<ICCM<2),ITktEL),<IEQM<3),ITMR), 

2  (  I  EQM  (  4  )  ,  I  M  T  H  )  ,  (  IEQMI  5)  ,  1DAY  )  ,  i  I  EQM6  )  ,  I  Yk  )  , 

31  I  ECMI 7  )  ,  I TUtSOI  l  )  ) 

C 

DATA  IPRFS/200,  160,  100,60,50,40,25,20/ 

DATA  IT KFS/OIO, 012, 010, 012, 02 0,025, 04 0,050/ 

DATA  KPRF/O/.NTLSTS/O/ 

DATA  XL C SUM/ 1 7n*0./,XRCSUM/170«0./,IFRSTl/0/,lFRST2/C/ 

DATA  ZLC/’LC  * /  ,  ZRC/ *  kC  * / , Z  W  fi / *  E  fi  '/,ZNU/'N8  '/ 

DATA  lFrST,)/0/,  IFKST4/0/ 

DATA  tK  /6J78. 1  45/,  I AVLC/ 1 70*0  / , I  A Vk C / 1 7 0* 0  / 

DATA  DIUOO/lOOn.  00/ 

DATA  XWPLl/’N.^AW.HAPHANWB  SNCT  DOOBNOT  D8.S'/ 

DATA  XWPL  2/ ' NO  ND  TOM  LVEDUSEDLET  USEDLVED’/ 

C 

C  I  POLAR  =  0 

C  I  POLAR  =  l 

C  NB AND  =  0 

C  NBANO  =  1 

C  N  I F  AT  =  0 

C  NIFAT  =  l 

C  NEE  A  =  0 

C  NEWA  =  l 

C 

RE  AC  (  5,  l  )  I  LNCH,  NBAND,  I  POL  AR  ,  lCr.LP  1  ,ICELP2,INTAV,ISKIP,MFAT, 

INS  T  ART , NSTQP ,  TTTL 
1  FORMAT (  I  10, 71 5, 2  I  10, IX, A4 ) 


I  EFT  C1RCULAK  DATA  REQUESTED 
MGHT  CIRCULAR  DATA  REQUESTED 

v ARRUW  8 and  data  requested 
WIDE  BAND  DATA  REQUESTED 
00  NOT  PRINT  ALL  AGC  CHANGES 
nR  i  NT  ALL  AGC  CHANGES 

MISSION  FLOWN  BEFORE  15  CCT  70  (CLD  ATTN.) 
•ISSION  FLOWN  AFTER  15  CCT  70  (NEW  ATTN.) 
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IF ( ICELPl.LE.O) ICELPl=46 
I F ( ICELP2.LE.OI ICELP2=60 
I  NT  A V= I 

I F ( ISK IP.EQ.O) (SKIP=499 

IF ( I SK IP.LT.O) ! SK I P=0 

I  FPR  =  0 

IPULS*0 

NNSET= ISKIP+1 

IF(NSTART.LE.O)NSTART=l 

IF ( NSTOP.LE .0) MSTUP=99999 

NL AS  T  =  NS  TOP- I 
I  E  0  F  =  0 
l  ERR  =  0 

CALL  REAOJSI INPUF, IEOF,  IERR) 

IS IG=  I 

CALL  HEOAOT  (  ISIG,  INBUF(l),  lECMd  )) 

I T  8AND= I ZflANC 
NEWA  =  0 

IF (  I YR .GT . 70  )Gn  TG  282 
IF ( IYR .LT. 70>GP  TU  283 
IF  (  IMTH.GT.  I0)f'0  TO  282 
IF  (  IMTH.LT  .  10) ''0  TO  203 
I F  (  [OAY.LT.ISKU  TO  283 

28 2  NE WA=  I 

283  CONTINUE 
I ERR=0 

CALL  RfcAOJSI INPUF , IEOF  ,  IERR) 

STURE  THE  QFSiREL  CALIBRATION  VALUES 


N  =  0 

DO  20  K~  256,30'’ 

N  =  N+  1 

20  XATBL(N)=XNHUF(K) 


N  =  0 

DO  I  2  I  K  =  384 , 5 1  1 
N=N+  1 

121  XPKTPL(N)=XNOUF(K) 

00  21  K= 1 , 255 
XFZLNI K) - XNBUF ( K ) 

JCOUN  T ( K  )  =K-  1  2° 

21  FAZLINIK  )=XN8UF(K>*57.2958 

N=0 

00  2?  K=512,527 
N  =  N+  1 

22  PIFA(N)=XN8UF(K) 

N  =  0 

00  23  K=528, 54’ 

N=N+  1 

23  0IFA(N)=XN6UF(K ) 

PFSA=XNBUF( 5921 
PS  S A=  XNBUF (5931 


0FSA=XNBUF<595) 

0SSA=XNBUF<5951 
AGAMA  =  XNBUF(59M 
EG  AM A  =  XNBUF ( 597 ) 

A6I AS=XNBUF(60?) 
EBIAS=XNBUF<603) 

DE  GCUN= (  180. *.05 79 3691/3151. 59 
AZBI AS=OFGCUN*AB IAS 
ELBI  AS=0EGCUN*F6l AS 


N  =  0 

DO  25  K=605,6l1 
N  =  N+  1 

QB I  AS ( N ) =  XNBUF ( K  ) 
25  KB  I  AS ( N ) =CB I  AS ( N ) 

AZGKAD-XNBUF (612) 
ELGRAD=XNBUF (613) 

PWRCN=XNBUF ( 6 2D ) 
PWRSN=XNBUF(621 ) 
PWRCW=XNBUF(625) 
PG  R  SW  =  XNBUF (62^) 


N  =  D 

DO  27  K  =  6?A  «  62  H 
N*N*1 

27  XKRCS(N)=XNBUF(K) 

PSSL=XNCUF(629) 

0SSL=XNBUF(630) 


N  =  0 

DU  2 B  K  =  6  3 1 ,65  5 
N*N  +  1 

2H  0 W*  (  N  )  =  XNBUF  (  K  ) 

CKCN=15. 989625/2058. 

XLX635=DW(5)*CKGN 
XLX635  =  0M  5  )  *C*ON 
XLX650=DW ( 10) *CKCN 
XL  X65  1  =DM  ll)*r.KCN 

XRMSJ=XiMBUF  (  65r’ ) 

PHABI A  =  XNBUF  (  656) 

XRBPP2  =  XN0UF  (  6^*7  ) 

XKRPP2  =  XNBUF  (  6<*8) 

N  =  0 

DO  59  K  =  659,65’> 

N=N+  1 

59  BE ACSP( N) =XMBUT ( K  ) 

WR  I  TF ( 6  »  1708  M  T  F AT , NB AND* I  POL AR , ICELP 1 » ICEL  P2  t I  NT  AV  » I SK I P  *  NSTART  i 
1NSTCP 

1  708  FORMAT ( ’  NIFAT  =  ',  15, 3X,'  NB  AND* • , I  5 , 5X , '  IPOLAR  =',I5,5X,’  ICELP 

11  =  • , I  5  »  5  X , •  I rELP2  =,,I5,5X,/,'  INTAV  =',I5,5X,’  I  SK I P  =',I5,5X, 


2 '  NSTART  =',I1P,5X,'  NSTOP  =',I10) 

WR I TE ( 6 ,  1709) 

1709  FORMAT ( // ) 

WK I TE ( 6 i 80 ) 1TRFEL 

80  FORK AT ( •  REEL  MO.  *  T 10 , I  10  ) 

WR I T  E ( 6. 81 ) IMTH, IOAY, I YR 

81  FORMAT!'  DATE  =  • , IX , I  2 , • / • , I  2  * ’ / * , I  2 ) 
WR  ITE(6, 7002) Tf  TL 

7002  FORMAT!’  TITLE  =',1X,A4) 

XLNCH=DFLOAT ( ILNCHJ/D1000 
WRITE!6,7003)Xt.NCH 

7003  FORMAT!'  LAUNCH  TIME  = • , F 1 2  -  3  ) 

C 

I F ( NBAND. EG. 0  )  GC  TO  88 
WR IT  t ( 6 i 89  ) 

89  FORMAT!  •  WIDE  RAND  SELECTED') 

GO  TO  90 
88  CONTINUE 


WR I TE ( 6  «  9  1 ) 

91  FORMAT! •  NARROW  RAND  SELLCTED') 
90  CONTINUE 
JCCN  =  -  1 


I NDEX=0 

i r s  t=  i 
jj=o 


I  A  0  I  N  =  2 


WR I TE ( 6 i  1709  ) 

WRITE <6, 111 ) (XKRCS(N) ,N*l,5) .XKRPP2 

111  FORMAT!'  KRCS(MBLC)  KRCS(NBRC)  KRCS(NBPK)  KRCS(WBLC)  KRCS(WBRC)  K R 
ICS!  PP2)'/6( LX|FL0.2) ) 

WRITE (6, U2)PWRCN,PWRSN,PWRCW,PWRSW 

112  FORMAT!/’  PWR(MC  INT)  PWRINB  SLP)  PWR(WE  INT)  PWRIWB  SLP) 

1  '/(2F10.2,2XIF1C.2,3XIF10.2)//) 

WRITE(6,36)AZBTAS,ELBIAS 
36  FORMAT!/'  AB I  A  M  DEG )  =  'T20.F10.3./ 

I'  EBIAS(DEG)  =  ’T20.F10.3) 

WRITE(6,30C)AG*MA,EGAMA,AZGRAD,ELGRAD 
300  FORMAT! 'OAGAMA(RAD)  =  ' , F9 . 3 , 5 X , ' EG AM A ( R AD  )  «’,F9.3.5Xf*  AZCR AD (REV 
1/UNITS  ERROR)  =',F8.4,5X,'  ELGK AD < RE V/UN I T S  ERROR)  =',F8.4) 
WRITE(6.37)(RBTAS(N),N=1,8),XRBPP2 


37  FORMAT!/’  NB  P^ 

CENT  =  'T20.F  10.3.2X, 

l  ' 

N 13 

PP/OP  LEA" 

=  ' T20, F 10. 3, / 

2' 

NB 

PP/OP  TRAL 

=  'T20.F10.3,/ 

3’ 

NB 

OP  CENT  =  » 

T20.F10.3,/ 

4' 

WB 

PP  CENT  =  ’ 

T20, F 1 0. 3 , / 

5' 

WB 

UP  CENT  =  • 

T20.F  10. 3,  / 

6  • 

PP 

S S A  B I AS=  • 

T20.FIC.3,/ 

7' 

OP 

SSA  B I  A S  =  ' 

T  20,F 10. 3, / 

8’ 

PP 

PP2  BIAS-  ' 

T20.F10.3) 

2X, ’ (MICROSECS)  •  ,/ 


WRI TE! 6,4391 ) X^BUF (614 ) , XNBUF ( 598) 
l  )  , XNBUf ( 600) , XvBUF(617) , XNBUF (601) 
4391  FORMAT ( 'ORGRAD!  1 )  =  •  , T 20 , F 10. 3, 2X , 
l)  =', T 75, F5.0, ?X, • (COUNTS) ' / 


2 

3/, 

3/, 

3/. 


RoRAD! 2) 
RGRAC! 3) 
RGR  AD ( 4  ) 
RGRAD! 8  ) 


=  ' . T  20  , 
=' ,T20, 
=  ' , T  20 


- 1 


T  20 , 


, XNBUF ( 615) , XNBUF ( 599 ) , XNBUF ( 6 16 
, XNBUF (618)  .XNBUF (6 19  ) 
•(U.U./UNIT  ERROR )', 10X, 'NCI SE(  1 

F10. 3,29X , 'NOISE! 2)  =',T75,F5.0, 
F10.3.29X, 'NOISE! 3)  =',T75,F5.0, 
F10. 3,29X , 'NOISE! 4)  =’,T75,F5.0, 
F 10. 3  ,  /  ,  '  RGRAD ( 6 )  = •  , T2 0 , F  1 0 . 3  ) 
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WRITE(6,4394)X~M.SJ,PHABIA 

4394  FORMAT ( // *  PHACE  RMS  JITTER  (RAD)  =  »,F10.3, 

1/,*  PHASE  BIAS  (RAO)  =  »,F10.3) 

WR  ITF  (  fc,4  395  )  (  XNBUF  (  I  )  ,  I  =512, 52  7)  ,  (  XNBUF  (I), 1=528, 543), (  XNBUF  (  I  )  , 

1  1  =  544, 5  59)  , (XNPUF(  I) ,  I =560,575) , ( XNBUF ( I )  *1=576*591  ) 

4395  FORMAT ('  I  *  ,9X,  •  ATTENUATION  CONSTANTS  (DB)  »//•  PIFAO'/  8FI0.I 

1/8(10.1//*  0  I F  A  0  * /  8F10. 1/8F10. 1//'  R I F AO ' /  8F 1 0 . 1  / 8F  1 C . 1 / /  ’ 

2  A Z (FAQ* /  8F 1 0. 1/8F 10.  l//»  EL  I F AO ’ /  8F  1  0. 1 / 8F 1 0 . 1  ) 

WR I TE ( fc,  4  39  8  )  XNBUF ( 5  92 ) , XNBUF ( 593)  ,  XNBUF (629) , 

1  XNBUF ( 594 ) , XN8UF ( 595 ), XNBUF ( fc 30 ) 

4398  FORMA  T (  *  OPF  SA  =  » , F 1 0 . 1 , 7 X  ,  ’  P S SA  = • , F  1  C.  1 , 7 X , » PSSL  =',F10.1/ 

1  '  OF  S  A  =  •  ,F10.1,  7X,  *OSSA  =  *  ,  F  1 C  .  1 , 7  X  ,  •  OS  SL  =',F10.l  ) 

WR  I  TE  (  fc  f  743DUK3)  ,l)W<9)  , 

IXLX634 , XLX64C, XLX635, XLX641 ,DW( 6) , DW( 12) 

7431  FORMAT (  *0* . 1  OX  , *EN DO- ATMOSPHERIC* *  38X  , *EXC  -ATMOSPHERIC  SCAN*// 
515X, 'NUMBER  OF  DWELLS  PER  SCAN  =  ' , F 1 0 . 0 , 1 7 X , ' NUMB E R  CF  DWELLS 
6PER  SCAN  =  *  ,  F  10.0/ 

7I5X, 'INITIAL  RANGE  UFFSfcT  (M)  =  • , F 10 . 2 , 1 7X , ' I N ITI AL  RANGE  OFF 

8SET  ( M )  =  '  »  F 1 0. 2 / 

915X, 'RANGE  OFFSET  INCREMENT  (M)  =  • , F i 0 . 2 , 1 7 X , • R A NGE  OFFSET  INCR 

AEMENT  (M)  =  ' ,F  10. 2/ 

B15X , • NO. OF  SLAVED  PRIS  PER  DWELL  =  ' , F 1 0 . 0 , 1 7 X , ' NU . UF  SLAVED  PRIS 
C  PER  DWELL  =  '  i  F  10. 0/  ) 

WR ITE ( fc,  74  38  )DW ( 1 ) ,DW<  2) ,DW ( 13) ,DW< 14 ) 

7438  FORMAT ( 'O' ,  1CX, 'ALTITUDE  PARAMETERS'//, 

1I5v,'UPPF:R  AUX.  SCAN  ALTITUDE  LIMIT  (KM)  =  ',F10.2/ 

215X, 'LOWER  AUX. SCAN  ALTITULiE  LIMIT  (KM)  =  ',F10.2/ 

315X, 'UPPER  OUUPLET  MOOt  ALTITUDE  L'MIT  (KM)  =  ',F10.2/ 

415X, 'LOWER  DOUBLET  MOOE  ALTITUDE  LIMIT  (KM)  *  »,F10.2) 

WRITE (6, 7439)  ( nEACSP< I ) , 1*1,4) 

74)9  FORMAT)  *0  BEATon-SK I N  RANGE  SE P AR A T I  ON ' /6X , • B E ACON  CODE  1  =  ', 

IF  1  0. 3 , '  (MICROSECONDS) '/6X, 'BEACON  CODE  2  =  ' , F 1 0 . 3 , /fcX , • BE ACON 

2C0DE  3  =  ', F10. 3, /fcX, 'BEACON  CODE  4  =  *,F10.3) 

DO  32  K=l, ' 28 

32  NC OUN T ( K ) =K-  1 
WR ITE ( 6,  102  ) 

102  FORMAT)  '  1'  T41,  'AMPL  ITUDE(DEi)  LOCKUP  TA8LE'//) 

WR I TF  (  6 , 4 1  ) 

41  FORMAT  (  1  8,  '  CCU*'T  AMP  COUNT  AMP  COUNT  AMP  COUNT 
1  AMP  COUNT  AMP  CUUNT  AMP'/) 

DO  26  KA=1 , 22 

2fc  WR ITE ( fc, 77 ) ( NCOUNT ( J)  , X A T BL  t  J ) , J  =  K A ,  1 2 8 , 22 ) 

77  FORMAT) T6, 6(3X13, F10. 3)  ) 

WR  I  TE ( fc ,  104) 

104  FORMAT ( / / T  4 1 , • °  E  A  K  DE  TEC  TOR ( DB )  LOOKUP  TABLE'//) 

WR  1  TE  (  6 , 4  1  ) 

DU  137  KA=  1 , 22 

137  WR I TE ( fc , 7  7 ) ( NCrUN  T ( J )  ,XPKT6L(J),J  =  KA,  128,22) 

WR IT  E ( 6 , 90  3  ) 

903  FORMAT) '  1' , T42, 'PHASE(DEG)  LOOKUP  TA8LE'//) 

WRITF (6, 72) 

72  FORMAT (T9, ' CCU" T  PHA  CUUNT  PHA  COUNT  PHA 

1  CUUNT  PHA  COUNT  PhA  COUNT  PHA'/) 

DO  29  K P=  1 , 44 

29  WR ITE ( fc, 78 ) ( JCPUNT ( J),FAZLIN(J),J=KP,255,44) 

78  FORMAT ( T6,6( 3X1 5,F 10. 3  )  ) 

WR I TE ( fc ,  139) 
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L  39  FORMAT ( •  1 '  ) 
C 


C 


C 


C 


I SK=999 


NBEG=NSTART 
3  JCCN  =  JCON*  1 

IF( JC0N.EQ.9.QP.JC0N.EG.0)G0 

I  NOE X  = ( JCON- 1 ) *900 
GO  TO  99 

97  JCCN- I 

I NDEX=0 

98  I E0F=0 
I  ERR  =  0 

CALL  RCADJS( INnuF,IEOF,IERR» 
IF (  I  ERR. EQ. I ) Gr  TO  103 

99  CALL  UNPACK 


IF ( IERST2.6Q.  II GC  TO  92 
ZBAN=ZNB 

IF  (  I  TBANO.EO.  I  IZBAN--ZW6 
ZPOL-ZLC 


IF  (  I  POLAR.  EC.  11  ZPOL--ZRC 
RRUSE=-. 00943 

IF (  I  TBAND.EQ. 1) RRUSE  =  -.0C01 15 
PtoRUS  l-PWRCN 

I  F  (  NBAND.EC.  1  )  °WRUSl  =  PI«RCh 
PV»KUS2  =  PkRSN 

IF ( NB AND . EG . I ) °HHUS2=PWRSk 
CCNLC=XKRCS ( 1 1 
CCNRC=XKRCS(2) 

I F ( NBAND.NE. 1 )CQ  TO  17 
CCNLC=XKRCS(4) 

CCNRC  =  XKRCS ( 5  ) 

17  CCNT1NUL 


TO  97 


92 


IF (NBAND.NE. I TP  AND  )G0  TO  695 
IFKST2=  l 

continue 

IF (NUMPRI.LT .N5TARTJG0  TC  3 


IF( IFRST4.EQ.IJ GO  TO  341 
I  pR(JLU=  I  PRF 

XOPOLD^XOPAGC 
XPPCLD=XPPAGC 
NUMOLD=NUMPR I 
I F  RST4=  l 
GO  TU  340 


C 


341  CONTINUE 

I F ( (NUMPRI-NUMPLDI.EQ.1JG0  TO 
WR  ITE(6,349)NUMPRI,NUMCLD 
349  FORMAT)  //•  ******  ATTENTION 
1  ******  CURRENT  PRI  *  *  ,  1 6  ,  • 
344  NUMCLD=NUMPR I 
340  CONTINUE 


344 

*******  improper  pri 
PREVIOUS  PRI  = 


IF (NIFAT.EG.O JTO  TO  610 

I F (  I  POLAR . EC • 1 IGO  TO  609 

I F ( ABS ( XPPOL D- vpp ACC ) . LE . 1 . JGO  TO  610 


PROGRESSION 

******  i  /I  j 
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WRITE (6,622)NUMPRI ,  XPPOLD , XPP AGC 

622  FORMAT! /25X'CU°RENT  PRI  =  *,18,'  CLD  I F  A  =  *,F5.1,'  CURRENT  I F  A 
1=  ',F5.1) 

XPPOLO=XPPAGC 
GO  TO  610 
C 

609  CONTINUE 

I F ( ABS(XOPOLD-*OPAGC).L£.l. )G0  TO  610 
WR  ITE(  6,622)NUMPRI  ,  XtlPOLD  ,  XOP  AGC 
XGPCLO=XCPAGC 
C 

610  IF (  IPRF.FG. I PRrLD ) GO  TO  611 
WRITE(6t624)NU^PRI , IPRCLD.IPRF 

624  FORMAT! /?5X'CUPRENT  PRI  =  • , I fi  ,'  OLD  PRF  =  ',15,'  CURRENT  PRF 

1  '  ,  IS) 

I PROL  0= I PRF 

611  CCNTINUE 

C 

IF (NTESTS.EC. 11G0  TO  623 
IF (NPAND.EO.O)GO  TO  623 
IF!  IABS(64-IM0VP).LE.IADIN)G0  TO  621 
WR  I  TE  <  6,6  322)NUMPRl , IMCVP 

632?  FORMAT!  •()•  ,25X, 'CURRENT  PRI  =  ',I8,3X,'A/D  COUNT  =  ',!•  3X, 

1  '  (PRI  MARY  ♦  OFFSET  STARTUP  '-.EWING)') 

NT  ES  T  S= 1 
I  D  I  R  =  1 

GO  TO  62S 
621  CONTINUE 

IF  UABSI64-IM0VQ)  .LE.  IADINIGO  TO  623 
IF ( kCGLE.EQ. I  .OR  • ICUDE.EG.5)G0  TO  623 
WR  ITE  (6,6321  INl'MPR  I,  IMG  VO 

6321  FORMAT ( »C» ,25X, 'CURRENT  PRI  =  ',IB,3X,'A/D  COUNT  =  »,I6,3X, 

1 ' ( OFF  SE  T  STARTED  SLEWING)') 

NTES  TS= 1 
I  0  I  R  =  2 
GO  TO  625 

623  CCNTINUE 

IF (NTESTS.EQ.O)GO  TO  625 
IF  (NB*,Nn.EC.O)FG  TO  625 
GO  TO  ( 628,821) , IDIR 

628  IF ( I ABS! 64- IMQVP ) .GT. I ADIN)GO  TO  625 
WR  ITF ( 6,6  329)NOMPRI , IMG VP 

6329  FORMAT!  •()•  ,25X,  'CURRENT  PRI  =  »,IB,3X,'A/D  COUNT  =  *,I6,3X» 

1  •  (  PR  I  MAR1*  ♦  OFFSET  STOPPED  SLEWING)') 

NT  ES  T  S-=  0 
GO  TO  625 

821  IF ( IA8SI64-IMQVO) .GT. IADINIGO  TO  625 
IFI  I  CODE • E C • 1 • OR . I  CODE • EG • 5 ) GO  TO  625 
WRI TE! 6,6328 JNOMPRI , IMQ VO 

6328  FORMAT! 'O' ,25X, 'CURRENT  PRI  =  ',IB,3X,'A/D  COUNT  =  ',Ib,3X, 

1 '( OFFSET  STOPPED  SLEWING)') 

NT  ES  TS  =  0 

625  CONTINUE 
C 

IF  !  I SSERR.NE. I ) GO  TO  617 
WRITE(6,612)NUMPRI 

612  FORMAT!'  SLO*  SWITCH  BITS  ARE  BOTH  =  0'*5X,'  CURRENT  PRI  =  ',110 
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1 5  X  * •  DATA  IS  BAD*  ) 

GO  TO  8998 
C 

617  CONTINUE 

I  TGT=  (  3600*IHRS*60*IM1N*1SEC  >*IOOO+ I  MSEC 
1 T  AL= I TOT-ILNCM 
T  OTL  =  DFLOAr ( 1TPTI/D1000 
TAL=UFLOAT I  I TA(  I /OICOO 
C 

8998  CONTINUE 
C 

IF (NUMPKI .EQ.NSTOP  >  GO  TO  10 
I F  PR  = I FPR  +  1 
IFIlFPR.LT. 4) GO  TO  10 
IPULS=  IPULS  +  1 

IF  I IPULS.LT. NNSET »G0  TO  118 
I  PUL  S  =  0 
C 

10  CONTINUE 

ROOT= (  IRDOT/I 8192.0) 1*14.989625 

RANGE  =  (  FLOAT  (  I<?ANGE)/2048000.  )*  14 . 989625*  TRB  I  A  S*  .  1 4989625 
T  T  COR  -  ( RANGE /299776. )*( ROOT/ 1000. ) 

R  ANGE  =  R  ANGE-;  T  TCOR 
RRCOR^R  RUSE  “'ROOT 
RANGE* RANGE *RRrUR/ 1000. 

AZ  =  I  I  AZ *2* 3 14  1.59265  358)/! 2. 0**1 7) 

XAZ-AZ*.057295P 

XAZ=XAZ*AZBIAS 

E  L  =  (  I  EL*2*3  141 .59265358)/ 12.0**17) 

XEL=EL*. 0572958 
XEL=XEL+ELBI AS 

CALL  REFCI XEL, RANGE, ECORF,KCORF  ) 

RNGF=RANGE-RCORF 
EL VF=XEL-ECORF 
RADEL=ELVF*. 017453 

CALT  =  S(«RT!RNGF**2*E'R*ER*2.*RNGF*ER*SIN(RADEL)  )-ER 

RANGE=RNGF 

XEL=ELVF 

XT  RR  =  4C.*AL0GK<  RANGE) 

XPKPWR=  IPKPWR 

IF ( IPKPWR.LE.OJGO  TO  39 

P0WERT=PWRUS1*"WRUS2*AL0G10I XPKPWR) 

39  CONTINUE 

XOFFST=! FLOAT! ! OFF S T )/ 2048 .  1*14.98962  5 
C 

IF! 124101. GT.1?7) GO  TO  6310 
I  24  IB  1= I 241B 1* 128 
GO  TO  6311 

6310  CONTINUE 

IF ( I241B1.LT. 1?9)G0  TO  6311 
I241B1=256-I24TB1 

6311  CONTINUE 

IF!  I241B2.GT.1-»7)GC  TO  63)2 

124182=124182*128 

GO  TO  6313 

6312  CONTINUE 

IF 1 I241B2.LT. 1?9)GC  TO  6313 
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I24182=256-I241B2 
*313  CONTINUE 

IF(  I2-41B3.GT.  1?7)GC  TO  6314 
124163=124163+128 
GO  TO  6315 
6314  CONTINUE 

IF (  I  24  IB  3  .L T  .  1  79 )GC  TO  6315 
124163=256-124183 
6316  CCNTINUL 
C 

Z1=XFZLN(  124  lBPJ-XFZLN!  I  24 1 B 1 ) ♦ AGAM A 
COS  T  A  =  CUS ( Z1 ) 

P=XATBL (  I240B2I-XATUL(  I240B1) 

0ELAZ  =  AZGilAU*2.*3141.6*(10.**(P/20.))*COSTA 
0ELAZ=CtLAZ*.0*7295B 
C 

Z2=XFZLN!  I241BU-XFZLNI  I  24  IB  l  (♦EGAMA 
COSTfc=COS( Z2 ) 

lJ  =  XATBL  (  I240B3I-XATBL  (  I240H1) 
r)ELFL=ELGRA0*2.  *3141.6*1  10. ♦♦(P/20.  ) ) *COS  TE 
DELEL=OELEL*.Or72950 

C 

IF ( ISSERR.EQ.  I  )  GO  TO  533 
WRI T E ( 6 , 602  ) 

602  FORMAT!////) 

C 

WRITE<6,6009) 

6009  FORMAT  (  T44,  •  - ,  j 

C 

WR  ITF!  6,  30  1)  IHPS,  I  MIN,  I  SEC,  I  MSEC,  TCTl  ,  T AL  ,  R ANGE , NUM PR  I  ,XAZ  ,XEL  , 

lRDOT,CALT,IPRF,DELAZ,DELEL,POWERT,XTRRfXPPAGC,XCPAGC 

101  FORMAT  (•  TIME(r.MT)  =  •  3 1  3,  •  .  • ,  I  3 , 7X ,  •  T  I  PE  (  SEC  )  =  •  ,  F  l  0 . 3 , 7X  ,  •  T  AL  (SE 
1C)  -  '  ,  T  1 .  3  ,  7X,  •  RANGE  (KM)  =',F1G.3,7X,'PRI  s'  ,  Ifc/'  AZIM(DEG)  =  ', 
2F13.3,  7X  , ’ EL  EV ( OEu )  =',F10.3,7X,'RD0T(M/S)  =',F11.3,7X,'HEIGHT(KM) 
3  =',F1C.  *  7X  * • PRF  = ' , I  6 / •  DEL  A ( DE  G )  = '  ,  F  1  3. 3 , 7X , ' DE LE ( CEG )  =',F10. 
43, 7X , • PUWER! DB)  = • , F 1 1 . 3, 7X , • 40L0GR ( KM  )  =',F10.3/'  LC  IF  ATT(DB)  = 
5' , F9. I ,7X, *RC  IF  ATT  =',F1C.1) 

ICDU= ICUTE+  1 

IF!  ICOCE.GT.  J.pr.  ICCDE.LT.  0)  I  C  Dll  =  7 
WRI  TE(6, 302)XWr*Ll(  I CDU  ),XWPL2(ICDU),X0FFST,  I  CODE 
302  FORMAT!'  THIS  PUL  SE  IS  A  ’,2A4,  5 X , • R . OF F S E T I M )  =',F8.1,5X, 

1  ' RCCDE  = ' ,  14 ) 

533  CONTINUE 
C 

NPRE  ND=NUMPR I 

c 

19  CONTINUE 

IOUTBG= IPPBEG 

IF!  IPQLAR.EQ.l) I  CUT BG= I GPBEG 
NSWTCH=0 
I NDX1=0 
N  =  0 

no  H2  J=  1  7 1 , 34° 

N  =  N+  l 

ILCPHA(N)=IDAT(J) 

ILCCUT(Nl=ILCPHA(N) 
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'  r  !  ^ 


— 


"■»  I  L«  — osps^ppi 


82  IF(ILCPHA(N).GF.128) ILCOUT { N)  =- ( I LC PH A ( N ) - 1 28 ) 

N  =  0 

DO  83  J  =  5 1 1 f 68P 
N  =  N+  1 

IRCPHA(N)=IOAT  (J) 

IRCOUT (N)=IRCPHA(N) 

8  3  I F ( IRCPhA(N).GF.128)IRCCUT(N)*-( I RCPHA ( N ) -  1 28  ) 

DO  52  K  =  l ,  l  JO 

IF ( K . LT . ICELP 1 .OR.K.GT. IlELP2 )GC  TC  52 
IF (NSWTCH.EQ. 1 )GC  TO  SI 
IX  A-K 
NSWTCH=1 

51  CONTINUE 
I  XZ  =  K 

I  OUT ( K ) =K 
I NDX 1 = I NDX l ♦ 1 
IFIK.EC. ICELP2IGC  TC  S3 
IF( I NDX  I  • NE . 1 5  I  GO  TO  S2 
S3  NSWT CH  =  0 
INDX 1 =0 

WRITE  16 ,59  I  I  I  OCT  (  N  )  ,  N  =  f  X  A  ,  I  XZ  ) 

59  FORMAT!  /•  n  *NGE  CELL  ',4X,15I6) 
WRITE!6,fe2)!ILfAMP(N),N*IXA,IXZ) 

62  FORMAT  ('  LC AM°  (A/D)  *  '*4X,1SI6) 

WRITF(6,63)  (  ILCCL'T  (N)  *  N  =  I  X  A  ,  I  X  Z  ) 

63  FORMAT  ('  LCPHA  (A/D)  =  '»4X,15I6) 

WRITE(6,64)  (  IRFAMPIN) , N*IXA, IXZ ) 

64  FORMA T  *  RCAMr-  U/O)  3  ’.4X.15I6) 

WRIT  i) ( IRCOLT(N) ,N=IXA, IXZ) 

65  FORMAT  (  i  CPH  A  (A/D)  =  ’,4Xtl5Ifc) 

52  CONTINUE 

118  I F ( NUMPR I .L  T . N F  TCP ) GO  TO  3 
GO  TO  125 

103  WRITE(6, 107)NUMPRI 

107  FORMAT (' OPAR I TY  ERROR  CN  READ  AFTER  PRI  =  ',I1C) 

GO  TO  99 

680  WRITE!  6,  109)NU»*PRI 

109  FORMAT!'  END  Oc  FILE  REACHED  LAST  NUMPRI  VALUE  -  ',110) 
GO  TO  125 

69S  WR I TF ( 6, 1 14 )NBAND,  I  TBAND 

114  FORMAT!'  INPUT  BAND3  MIC,'  BAND  CN  TAPE"  =  *110) 

125  RETURN 
END 
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APPENDIX  D 
L02ALC  FLOW  DIAGRAM 


APFENDIX  D-4 


X  PRF  x 
CHANGE 


Y£S 


PRINT 

ERRGR 

MESSAGE 


PRINT 

ERROR 

.MESSAGE* 


X5RlMARY\ 
4  offset  ; 

\SLEWING  X 


'OFFSET  N 
SLEWING 
s.  ONLY  X 

X  X 


PRINT 

ERROR 

MESSAGE 


PRINT 

error 

^MESSAGE 


XSLOW\ 
'SWITCH  x 
attenuation 
VerroRX 


COMPUTE 
All  metric 
data 


APPENDIX  E 

SUBROUTINE  HEDADT  PROGRAM  LISTING 


*  CALL  HECAGT  < ISIG, INBUF,IEQU) 

*  ISIG  =  I  UNPACK  THE  20  RORC  ACT  HEADER 
START 

ENTRY  HEDADT 
SPACE 

XISIG  EQU  4 

XICAL  EQU  5 

XIECU  EQU  6 

EASE  EGU  12 

SPACE 

HEDADT  SAVE  (14,1?), T,* 

BALR  12, 0 

USING  * , BASE 

ST  13,SAVEA*4 

LA  7, SAVA 

ST  7,8(0,13) 

LR  13,7 

SPACE 

LM  XISIG, XIEGU, 0(  1) 

SPACE 

L  8 , 0 ( X  I  CAL ) 

ST  8, TEMPI 

ST  8  ,  T  EM"’ 2 

SRL  8,31 

ST  8 , 0 ( X  T  ECU  )  MBAND 

L  8, TEMPI 

SLL  8,1 

SRL  8,25 

ST  8 , 4 ( X  T  E QU  )  MRELL 

SPACE 

L  8 , 4  I  X  I  CAL  ) 

ST  8, TEMPI 

ST  8.TEMP2 

SRL  8 ,  l fc 

ST  8 , 8 ( X  F  ECU  )  MWTK 
L  8, TEMPI 

SLL  8,16 

SRL  8,24 

ST  8 , 1 2 ( X  I E QU )  MMNTH 
L  8.TEMP2 

SLL  8,24 

SRL  8,24 

ST  8 ,  1 6 ( X  I EUU )  MDAY 

SPACE 

SR  8,8 

IC  8 , 8  (  X  F C  AL  ) 

ST  8 , 20 ( X  I EQU I  MYEAR 

K VC  24(9,*IEQU)»12(XICAL)  MISSION  DESIGNATOR 
SPACE 

RETURN  L  l  3, SAVEA  +  4 

RETURN  (  14,  12)  ,T 
CNUP  0,4 

TEMPI  CC  F  *  0  ’ 

TEMP2  CC  F ' 0 ' 

SAVEA  CC  1  8A ( *  1 

END 
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APPENDIX  F 


UNPACK 


start 


DUHUF 
BASA 
START  1 


SUBROUTINE  UNPACK  PROGRAM  LISTING 
ester 

ENTRY  UNPACK 
S  AVEL 
DROP  15 

CNGP  0,4 

BALR  2,0 

USING  START, 2, 3 

L  3, BASA 

L  4 , DUBUF 

L  5, DUBUF 

L  6 , OUBUF 

A  5 , =F ' 4096  ' 

A  6, =F ' n  192  ' 

USING  DBUF ,4,5,6 

U  START1 

DC  VI  I CQV  ) 

CC  A<  STA0T4-4C96) 

LA  8,INB"F  NUMPRI*8*INPR-1)*JC0N 
MVC  TEMPI ’I, 0(8) 

MVC  TEMP2I 3) ,01 8) 

L  9, TCMn 

SLL  9,8 

SRL  9,16 

S  9, ONE 

SR  8,8 

M  8, EIGHT 

A  9.JC0N 

ST  9.NUMPRI 

L  9  ,  N  B  E  r 

C  9  ,  NUMPR  I 
BH  CDELTAR 

SPACE 

LA  8.WC273 

C  8,  INDEX 

MVC  TEMP ( 3 ) , 01 8  ) 

L  9, TEMP 

N  9,=X»F0C00000» 

SRL  9,28 

ST  9,IC0nE  COMPUTE  THE  CODE  FCR  PRI 

SPACE 

L 

N 

SRL 
ST 
L 
N 

SRL 
ST 
L 
N 

SRL 
ST 
L 
N 

SRL 

ST 


9, TEMP 

g^x’oacoocoo1 

9,27 

9,l277b5  WBS  MCDE  INDICA  .X 

9, TEMP 

9 , =X • P4C00000  ’ 

9, 26 

9,127306  ENDO-EXO  SCAN  INDICATOR 

9, TEMP 

9 ,  =  X  ’ n2000000 ’ 

9,25 

9 , I  2  7  3B  7  WBS  SCAN  MCDE  INDICATCR 

9, TEMP 

9 , =X ' 0 1C00000 • 

9,24 

9,127’BS  DOUBLET  MCDE  INDICATCR 
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L  9, TEMP 

N  9,=X*P010CC00» 

SRL  9,20 

ST  9 *  I  2  7° 1 2  NB/WB  ! NO! CATCR 

SPACE 

GOOD l  LA 
A 

MVC 
L 
N 

SRL 

ST 
L 

N 

SR  A 
ST 
L 

N 

SR  A 
ST 
LA 
A 

MVC 
L 

N 

SRL 
ST 
SPACE 

L  1C, CNF 

ST  1C.IXC 

LA  10, I D  A  T 

LA  9.RC1 

SR  11,11 

LOCPC  A  9 ,  I N 0 r- X 

SR  12,12 

LA  8,170 

SPACE 

LOOPC  IC  7,0(17,9)  STORE  ONE  POLARIZATION  ( PP  OR  OP) 
SLL  7,24 

SRL  7,24 

ST  7,0(11,10 

BCT  8.INDUP 

LA  11,4(11) 

SPACt 

L  9,IXC  GET  NEXT  POLARIZATION 

A  9, ONE 

ST  9 , l XC 

C  9, TWO 

BE  PPPH 

C  9, THRFE 

BE  CPLCG 

C  9 , FOU° 

BE  OPPH 

6  OUT 

SPACE 

I NOUP  LA  12, 1( ’2) 

LA  11,4(11) 


8 » WC233  COMPUTE  GMT 
8, I NOr  X 
TEMPO), 0(8) 

9, TEMP 

9,  =X • 1  FCOGGOO* 

9,24 

9, IHRS  STORE  HRS 

9, TEMP 

9 , =  X • 003F0000  * 

9, 16 

9 ,  I  M  I  Kl  STORE  MINS 

9, TEMP 

9 , =X ' 00CG3F00 ' 

9  t  B 

9 ,  I  SEC  STORE  SECS 

8  ,  V*D2‘'4 
B,  INDFX 
T  E  M  P ( 3 ) ,0(8) 

9, TEMP 

9 ,  =X  ’ 7F  EOOOOO ’ 

9,21 

9,  IMSFC  STORE  MSEC 
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*»  r 


B 

LCOPD 

PPPH 

LA 

9.WCSP 

B 

LCOPC 

CPLGG 

LA 

9  f  WC  1 1  8 

B 

LOOPC 

CPPH 

LA 

9,WCl?5 

B 

SPACE 

LOOPC 

CUT 

LA 

8.WC2M 

A 

8,  I NOr X 

MVC 

TEMP ( P ) »  0 ( 8 ) 

L 

9,  TEMP 

ST 

9  , WCRP6A 

LA 

8,  W0273 

A 

8, INOrX 

MVC 

TEMPH)  tO(  B) 

L 

9,  TEMP 

ST 

9 , WCRP  7  3 

L 

9 ,  W  0  K  P  6  A 

N 

9| =X'TFFFE  OOO 

SKL 

9,  13 

NZSTMP 

ST 

9, S  TEMP 

L 

9,  =F  » IOCOCOOO 

SR 

8,8 

r 

8  ,  S  IE  WP 

ST 

SPACE 

9 ,  S  T  E  w  P 

L 

9,  INflHF 

SRL 

9,31 

C 

9,ZER'i 

BNE 

SPACE 

WB  AND 

L 

9 , WCRP  7  3 

N 

9,  =X  *  P 1C00000 

SRL 

9 , 2  A 

C 

9 ,  Z  ERP 

BE 

SPACE 

SLVDUR  1 

XOI  V 

L 

a.fcup 

XOIV1 

ST 

a,  di  vsr 

B 

SPACE 

NEWPRF 

SLVOUBl 

L 

9,  WCRP73 

N 

9  ,  =  X  ’  P8COOCOO 

SRL 

9,27 

C 

9,ZERD 

BE 

NBNWB* 

B 

XCIV 

NBNWBN 

L 

9,  W0RP73 

N 

9  ,  =X ’ PO 10C000 

SRL 

9,20 

C 

9, ZERp 

BE 

NCOIVS 

L 

8,  TWO 

B 

XDI  VI 

NCCI VS 

L 

8  *  UNt 

D 

XDI  VI 

PRF  CALCULATION 


TRANSMITTED  PRF 


IN  NARROW  BAND 

bit  a 


IN  DOUBLET  MCOE 


BIT  b 

IN  SLAVED  DOUBLET  MODE 
BIT  12 


NB/WB  E.C.P. 
NB  ONLY 
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w  B  AND 


SLVDUB2 


NEWPRF 


NFXTW 


GOCON 


SPACE 

L 

9,WGRP73 

N 

9 ,  =X  '  P  lOOOOOO ' 

SRL 

9,24 

C 

9,  ZERO 

BNE 

SLV0UP2 

L 

8, TWO 

B 

XDIV1 

L 

9, WCRP73 

N 

9, =x 'pscooooo* 

SRL 

9,27 

C 

9,ZERH 

BNE 

XCIV 

L 

8,  TWO 

8 

XC  l  VI 

.PACE 

SR 

8,8 

L 

9.STE-MP 

D 

8, 01  VSR 

ST 

9,  l  PRF 

SPACE 

LA 

8,WC2^7 

A 

8,  INDFX 

MVC 

TEMPO), 0(8) 

L 

9,  TEMP 

N 

9 ,  =X  '  7FFFC000  * 

SRL 

9,  14 

ST 

9,  \  AZ 

LA 

8,WC2^6 

A 

8,  INDFX 

MVC 

TEMPO), 0(8) 

L 

9, TEMP 

N 

9, =X  ’  7FFFCOOO ' 

SRL 

9,14 

ST 

9,  I  EL 

LA 

8, WC265 

A 

8,  iNDTX 

MVC 

TEMPO)  ,G(  8) 

L 

9, TEMP 

N 

9  *  =X  *  FFFFECOO  * 

SRL 

9,13 

ST 

9, TEMP2 

LA 

8.WC267 

A 

8,  INDFX 

MVC 

TEMP ( 3  )  ,  0  (  8  ) 

L 

9, TEMP 

N 

9 ,  =X  *  F  FFF  0000 • 

SRL 

9,16 

A 

9,  TEMP2 

SLL 

9,11 

ST 

9,  TEMP2 

LA 

8 ,  WD266 

A 

8,  INDFX 

MVC 

TEMPO), 0(8) 

L 

9, TEMP 

N 

9 ,  =  X  *  FFE 00000  ' 

SRL 

9,21 

BIT  8 

IN  DOUBLET  MODE 

BIT  5 

IN  SLAVED  DOUBLET  MODE 
WB  ONLY 


STORE  A2 


STORE  ELEV 
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LOTGL 

LOTG2 


CFFCOM 


RPLUS 

KNbG 


A 

9  •  TEM°2 

ST 

9,  IRAN'GE 

LA 

8,  won 5 

A 

8  ,  I  NOFX 

M  VC 

TEMPO), 0(8) 

L 

9,  TEMP 

N 

9 ,  =X  ’  DOFF  0000  • 

SR  A 

9,  16 

ST 

9,  IPKPWR 

LA 

8.WD269 

A 

8,  I N0F X 

MVC 

TEMPO), 0(8) 

L 

9,  TEMP 

C 

9,=F*n 

8NL 

DOTGL 

N 

9,  =X*7F‘-rFF00' 

SR  A 

9,8 

LCR 

9,9 

B 

00TG2 

SR  A 

9  ,  P 

ST 

9, I  ROM  T 

SPACE 

LA 

8,  wen  7 

A 

8, I N0cX 

MVC 

T  EMP ( 7 ) j  o ( 8 ) 

L 

9, TEMP 

N 

9,  =X  '  f  F000000 ' 

SRL 

9,2* 

ST 

9, IMOVP 

SPACE 

L 

9 ,  T EMD 

N 

9  ,  =X  '  PCCOFFOO ' 

SRL 

9,8 

ST 

9,  I  M  0  V  Q 

SPACt 

SR 

9,9 

ST 

9,  IOFFST 

L 

9,  I  C  0  n  E 

C 

9,  THRFE 

BE 

OF  ECO'* 

C 

9 , SE VPN 

HE 

OFF  C0M 

B 

OFFSKP 

SPACE 

LA 

8, WD278 

A 

8, INOFX 

MVC 

TEMPO), 0(8) 

SR 

9,9 

L 

9, TEMP 

C 

9, ZERO 

BNL 

RPLUS 

N 

9, =X ' 7FFFFF00* 

SR  A 

9,8 

LCR 

9,9 

B 

RNEG 

SR  A 

9,8 

ST 

9,  IOFFST 

STORE  RANGE 


STORE  PEAK  POWER 


STORE  R-OCT 


ARE  PRIMARY  AND  OFFSET  MOVING 


IS  OFFSET  WINDOW  MOVING 


RANGE  OFFSET  FOR  SLAVED  WINDOW 
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<T 


■■  w  il*l  |  I" 


CFFSKP 


SPACt 

L  A 

8 ,  NC240 

A 

8, INDFX 

MVC 

TEMPI B) ,0(8) 

L 

9, TEMP 

N 

9  *  =X  • 7FC00000  * 

SRL 

9,24 

LA 

9,1(9) 

ST 

9,  I240B1 

L 

9, TEM" 

N 

9,  =X ' P07FC000 1 

SRL 

9,  16 

LA 

9,  1(9) 

ST 

9,12402 

L 

9, TEMP 

N 

9 , -X • P0C07F00 ' 

SRL 

9,8 

LA 

9,1(9) 

ST 

9,  I  2403 

LA 

8 , WC24 l 

A 

e,  i Nor x 

MVC 

TEMPO), 0<8) 

L 

9, TEMP 

N 

9,=X»FF000C00' 

SRL 

9,24 

LA 

9,1(9) 

ST 

9 , *24)81 

L 

9, TEMP 

N 

g^x’rorFoooo’ 

SKL 

9,  16 

LA 

9,1(9) 

ST 

9, I241B2 

L 

9, TEMP 

N 

9,  =X,noOOFFOC' 

SRL 

9,8 

LA 

9,1(9) 

ST 

9,  I  24  T  B  3 

LA 

8 ,  WC26  3 

A 

8,  INDEX 

MVC 

TEMPI  1)  ,0( 8) 

L 

9, TEMP 

N 

9,=X'rOOOOOOO' 

SRL 

9,26 

LA 

11, PITA 

LE 

0,0(9,11) 

STE 

0 , XPPAGC 

L 

9, TEMP 

N 

9, =X 'PFOOCOOO* 

SRL 

9,  22 

LA 

i  i ,  c  i  r  a 

LE 

0,0(9,11) 

STE 

0 , XCP*GC 

L 

9, 2ERP 

ST 

9, ISWSSP 

ST 

9, I swssc 

ST 

9, I SSPRR 

LA 

8  ,  In  C  2  T  9 

GET  VALUE  FRO  PIFA  TABLE 


GET  VALUE  FRO  OIFA  T'-BLE 
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---TwwpwK mjf-m 


-*  Tf* 


flMJi  null 

'  •  »• -**•  *  ■ 


NlZ*r 


CKSSPP 


INOET 


CKSSOP 


PPTE5T 


A 

MVC 

L 

N 

C 

BE 

LE 

AE 

STt 

CKFSCP  L 
N 
C 

BE 

LE 

AE 

stl 

CKSSPP  L 
N 
C 

HNE 

INOET  L 
ST 
B 

CKSSCP  L 
N 
C 

Bt 

PPTEST  LA 
A 

MVC 

L 

LA 

A 

MVC 

L 

LA 

A 

MVC 

N 

C 

BNt 

LE 

AE 

STC 

L 

ST 

S  7  A  L 

C 

BE 

L 

N 

C 

BE 

N 

C 

BNE 

NCATTLC  LE 


8,  INDEX 
TEMPI T) ,0(8) 

■7,  TEMP 

9,  =X *00000200' 
9,  ZERO 
CKESOP 

0 ,  PE  r  A 

0,  xppagc 

O.XPPAGC 
9  ,  TEMn 

9,=X*n0000100' 

9,  ZCRP 
CKSSPP 
O.CFSA 
0,  XOP^GC 
0,  XCPAGC 
I  I  ,  TL*'P 

1  l ,  =X  • 0Cb02000  ' 
II»sF,0' 

CKSSUn 

8.CNE 

8,  I SSTRP 
CDEL  TAR 

I  l ,  T  t  »•  P 

I  l  ,  = X ' 0040  LOCO  * 

I I  *  -F  *  0  ’ 

I  NDE  T 

9  ,  WD  2  9 
9, I NOr X 
TEMP (9), 01 9) 

10,  TE*'P 
9  ,  I*  D  2  2 

9,  I N0r X 
TEMPI  7) ,0(9) 

I  L ,  T6MP 
9  ,  V,  C  2  7  2 

9,  INDEX 
TEMPI M,0(9) 

10,  =X* 00802000’ 
1C,=X’OC800000' 
S  74 

0, PSSL 
0,  XPP 'GC 
C,XPP«GC 
9, ONE 
9,  ISHSSP 

8  ,  NE  W  A 

8,  ZERO 
CPTEST 

9,  TEMP 

9, =X  •  P0C80C00 • 

9  ,  =F  '  n  • 

RD8KLC 

II  ,  =X ' 080CC000 ' 
l  1  , ZEPO 

SLC 

0, PKEVLC 


CHECK  BIT  23  IPFSA) 


ACC  IN  PFSA  VALUE 


CHECK  BIT  24  (CFSA) 


ADD  IN  OF  S  A  VALUE 


INDETERMINATE  SITUATION 


AUX.MICR.ViCKD  INTO  REG. 10 
ALX.M  ICRLwAVE  WORD  INTO  RtG.l 


RANGE  TR.WCRD  INTO  TEMP 


ADC  IN  PSSL  (COND.B) 


OLD  CR  NEV,  ATTEN. 


A  TYE  NEATER  READBACK 
S  74  ARMED 
STATUS  READ  BACK 


STE 

O.XPPAGC 

M  VC 

JSWLCI4) ,  ONE 

MVC 

I  SSERp  (  )  ,CNE 

B 

OPTEST 

RQBKLC 

N 

1  l.=X,0<t000000' 

C 

1 1 ,  ZEpO 

BE 

NCATTLC 

b 

CPTEST 

SLC 

LE 

0, PSSA 

ae 

0, XPPAGC 

STCRLC 

STE 

O.XPPAGC 

MVC 

I  SWSSPI  )  t  ONE 

CPTEST 

LA 

9.WC2T9 

A 

9,  INDEX 

MVC 

TEMPI M ,0(9) 

L 

10,70“? 

LA 

9,WC2^2 

A 

9,  I  NDr X 

MVC 

TEMPI  T  )  ,01 9) 

L 

I  I  ,  TE“P 

LA 

9 , WU2  72 

A 

9,  IND^X 

MVC 

TEMPI  A) ,0(9) 

N 

1C, =X ’OC^CICOC  * 

C 

1C,  =  X’00<,CCC00' 

BNC 

S  75 

LE 

C.0SS1 

AE 

0,  XOPAGC 

STE 

0, XCP'GC 

L 

9 ,  CNE 

ST 

9,  I  SWT  SC 

S  7  5 

L 

8,  NEW  A 

C 

8,  ZE«P 

BE 

00  T1 

L 

9 , T  EMn 

N 

9,=X,b0C<<C000, 

C 

9 , =F *0* 

BE 

RDBKRE 

\ 

1  1,=X’0200CC00» 

C 

1 1 ,  ZEPG 

BNfc 

SRC 

NOATTRC 

LE 

0,  PREVRC 

STE 

0, XOPAGC 

MVC 

J  SWRC ( 4 ) , ONE 

MVC 

I SSER° I  A ) , CNE 

e 

CUT  1 

RDbKRC 

N 

11,=X*C10CC00C» 

C 

1  1  ,  2ER0 

BE 

NCATT’C 

b 

CUT  1 

SRC 

LE 

c ,  0  S  S  A 

AE 

0, XOPAGC 

STCRCC 

STE 

C, XOPAGC 

MVC 

I SWSSn<  4 ) , ONE 

LOTI 

L 

9,  JSWI  C 

C 

9 , ZtRn 

6NL 

CUT2 

S74  NOT  ARMED 
STATUS  REACBACK 


IN  PSSA  (CCNID.B) 


AUX.MICR.WCRD  INTC  REG. IQ 
AOX. MICRCW AVE  WORD  INTO  REG. II 


RANGfc  TR . WORD  INTO  TEMP 


ADC  IN  CSSL  (CCNID.6) 


OLD  OR  NEW  ATTEN. 


ATTENLATcR  READBACK 
S  75  ARMED 
status  read  back 


S75  NOT  ARMED 
STATUS  REACbACK 


A  CD  IN  OSSA  (CCND.E) 
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i 


LE 

0,  XPPAGC 

SE 

0 ,  =E  *  16* 

STE 

O.XPPAGC 

STE 

0 • PREVLC 

CUT2 

L 

9,  JSWRC 

C 

9, ZERO 

ONE 

endaltrt 

LE 

O.XOPAGC 

SE 

0*  =E ' 16’ 

STE 

O.XOPAGC 

STE 

0,  PREVRC 

ENDALERT 

M  VC 

J SWLC I  4  )  , Z ERO 

MVC 

JSWRCI4)  .ZERO 

L 

9, I TB  AND 

COMPUTE  RANGE  BIASES 

C 

9, ZERO 

QE 

NB  AND 

LE 

2.RBMS*  16 

WIDE  BAND  TAPE 

STE 

2  «  TRB  f  AS 

L 

9,  I  PQI  AR 

C 

9, ZERO 

HE 

LCPOLAR 

LE 

2.  RBI AS+20 

OP  POLARIZATION 

AL 

2,  TRB  I  AS 

ADC  WE  CP  BIAS 

STE 

2  «  TR Q  t  A S 

L 

9,1  SWSSC 

ISWSSC  WAS  SET  IN  AGC  COMP 

C 

9,  ONE 

=  l  *  ADC  32  Cb  (OP) 

BNL 

CDELTAR 

LE 

2,KbI AS+28 

ADC  IN  OPSSA-  RBIASI8) 

AE 

2,  TR8I AS 

STE 

2.TKBIAS 

B 

CDELTAR 

LCPOLAR 

L 

9,  I SWSSP 

C 

9.UNL 

BNL 

CDELTAR 

LE 

2, RBI  AS  +  2A 

AE 

2.TRBI AS 

ADD  IN  PSSA-RBIAS1 7) 

STL 

2.TKBIAS 

B 

CDELTAR 

NB  AND 

LH 

2 ,  R  B  l  A  S 

NARROW  BANC 

STE 

2.TRBIAS 

LA 

0.WD2T3 

CENTER  CP.  EDGE  TRACK 

A 

d,  INU^X 

MVC 

TEMPI T).O(ti) 

L 

9 ,  TEM*1 

N 

9,=X'00010000' 

C 

9, ZERO 

BNE 

CKNBEDGE 

EDGE  TRACKING 

B 

CKPOL AR 

CENTER  TRACK 

cknbedge 

L 

8,  I  ROOT 

CHECK  SIGN  OF  R  DOT 

C 

8, ZERO 

OH 

CKNBLOW 

LE 

2, RBI AS+A 

LEADING  EDGE  BIAS 

AE 

2, TRB? AS 

STL 

2, TRBf AS 

H 

ckpclar 

CKNBLOW 

LE 

2, RBI AS*8 

TRAILING  EDGE  BIAS 

AE 

2, TRB  I  AS 
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STE 

2t  TRBI AS 

CK  POL  AR 

L 

9, I  POL  AR 

C 

9, ZERO 

BE 

CDELTAR 

LE 

2tKBI*S*l2 

AE 

2, TRBI AS 

STL 

2 i TR8  f  AS 

CDELTAR 

RETL 

TEMP 

DC 

F*  O' 

TEMP2 

DC 

F  •  D ' 

IXC 

DC 

F  '  0 ' 

NPTAPE 

DC 

F  '0* 

PRINUM 

DC 

F  '  0 ' 

IPASS 

DC 

F  *0* 

I SHSSO 

DC 

F '  0  • 

l SHSSP 

DC 

F  *0* 

Cl  VSK 

DC 

F  '  0 ' 

HCRD64 

DC 

F  •()• 

HCKU7  3 

DC 

F  •  0 ' 

STEMP 

DC 

F  'O' 

PREVLC 

DC 

E  '0.0' 

PREVRC 

DC 

E  '0.0* 

JSHLC 

DC 

F  *0* 

JSWRC 

DC 

F  •  O' 

ZERO 

DC 

F  'O' 

ONE 

DC 

F  •  1  • 

THC 

DC 

F  '  2  ' 

THREE 

CC 

F  •  3' 

ECUR 

DC 

F  '  4  ' 

SEVEN 

DC 

F  •  7  • 

EIGHT 

DC 

F  •  8' 

CIO 

DC 

F  •  1C 

ClOO 

DC 

F* ICO' 

C1000 

DC 

F  '  ICOr" 

CBUF 

L1SECT 

INBUF 

cs 

CL  3 

HD1 

CS 

CL  3  i 

DS 

CL  48 

HD18 

DS 

CL  3 

HD  19 

CS 

CL  3 

CS 

CL  2  7 

HD29 

DS 

CL  3 

HD  30 

DS 

CL  3 

DS 

CL  81 

HD58 

DS 

CL171  1 

HD  1  IS 

DS 

CL  3 

HD1  16 

DS 

CL  3 

HD1 17 

DS 

CL  3 

HD1  18 

DS 

CL  1  7  1  1 

HD17S 

DS 

CL l 7  1  I 

HD232 

DS 

CL  3 

HD233 

DS 

CL  3 

HD234 

CS 

CL  3 

DS 

CL  3 

HD236 

CS 

CL  3 

HD237 

CS 

CL  3 

DS 

CL  3 

PP  LCG  0. 


PP  PHASE  C. 


CP  LCG  C. 

CP  PHASE  D. 


CHECK  POLARIZATION  CESIREC 
ACC  NP  OP  BIAS 
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i  ! 


L>'  ?  ■ 


WD2  39 

CS 

CL  3 

W024G 

OS 

CL  3 

WO  241 

CS 

CL  3 

WD242 

CS 

CL  3 

OS 

CL  2  7 

1*0252 

CS 

C  L  3 

W0253 

CS 

CL  3 

CS 

CL  2  7 

1*0  2  6  3 

CS 

CL  3 

V*  D  20  A 

CS 

CL  3 

1*  D  2  6  5 

CS 

CL  3 

W0266 

OS 

CL  3 

W0267 

CS 

CL  3 

W0268 

OS 

CL  3 

1*0269 

OS 

CL  3 

WD2  70 

CS 

CL  3 

1*02  7  1 

OS 

CL  3 

1*02  72 

CS 

CL  3 

1*02  7  3 

CS 

CL  3 

W. 02  /  A 

OS 

CL  3 

1*02  75 

CS 

CL  3 

1*0276 

CS 

CL  3 

1*  0  2  7  7 

CS 

CL  3 

WC27B 

CS 

CL  3 

WD2  79 

OS 

CL  3 

1*02  80 

CS 

CL  3 

CS 

CL  6  369 

I  A  Z 

CS 

LF 

I  CL 

CS 

ir 

INCEX 

CS 

ir 

IPPRCS 

CS 

IF 

I  (JR  S 

CS 

IF 

[KAMGE 

CS 

IF 

I  PKPWR 

ns 

IF 

(ROOT 

CS 

IF 

I  AL  T 

CS 

IF 

INOAZ 

CS 

IF 

JNOAZ 

OS 

IF 

[I50EL 

ns 

IF 

[  Rtl5 A 

CS 

IF 

[  R885 

CS 

IF 

IOPRCS 

CS 

IF 

I 2 A  OB  1 

CS 

IF 

I240G2 

CS 

IF 

I  240B3 

CS 

IF 

I  2  A  1  B  1 

CS 

IF 

I  2  A  1  B  2 

CS 

IF 

I  2  A  1 8  3 

CS 

IF 

XPPAGC 

CS 

IF 

[BETA 

CS 

IF 

NLWA 

CS 

IF 

BAND 

CS 

IF 

NSW 

CS 

IF 

R  B  I  A  S 

CS 

HT 

I SVPR  I 

CS 

IF 

[HRS 

CS 

IF 

I  K  I 

CS 

IF 
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I  S EC 

CS 

IF 

I  MSEC 

DS 

IF 

STAT 

CS 

2  IF 

TRRI AS 

CS 

IF 

I STAT  1 

CS 

IF 

ISTAT2 

CS 

IF 

I  STAT3 

CS 

IF 

I STATA 

DS 

IF 

I  ALSW 

CS 

*  F 

ISTSW 

DS 

IF 

N8WB 

CS 

IF 

I S  IGNO 

CS 

IF 

127812 

CS 

IF 

JCCN 

CS 

IF 

NBEG 

DS 

IF 

NEND 

CS 

IF 

I  TST 

CS 

IF 

NUMPR I 

DS 

IF 

X OP ACC 

DS 

IF 

I T  BAND 

DS 

IF 

ITAPNO 

CS 

IF 

IPRF 

CS 

IF 

I  POLAR 

CS 

F 

I SSEKR 

OS 

F 

PI  FA 

DS 

16F 

C  I  F  A 

CS 

lfcF 

PFS  A 

CS 

IF 

CFSA 

CS 

IF 

PSSA 

CS 

IF 

OSSA 

CS 

IF 

PSSL 

DS 

IF 

CSSL 

CS 

IF 

i  CODE 

CS 

F 

I  273B5 

CS 

F 

I273B6 

DS 

F 

I  273B7 

OS 

F 

I  273B8 

CS 

F 

IMCVP 

DS 

F 

IMCVC 

CS 

F 

I  OFF  S  T 

CS 

F 

IDAT 

CS 

END 
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APPENDIX  G 

SUBROUTINE  REFC  PROGRAM  LISTING 


i 


VERSION:  6/16/70 


SUBROUTINE  REFr(E,R,OE£,CRRI 
01  MENS  I  UN  DEI  16, R) , CR (  16,8  I ,E0< 16) ,R0<  fll 
DATA  Ot/O.O  ,0.0  ,0.0  ,0.0  ,0.C  ,C.O  ,0.0  ,0.0  , 

10.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0  ,0.0313, 
20. 0  30 3, 0.02  9,., 0.0207, 0.02 82,0. 0272, 0.0262, 0.02 63,0.02 A3,  O.C223, 
30.0214,0.0196,0.01/1,0.0136,0.0075,0.0  ,0.09 37, 0.0848, 0.0770, 

40. 0732, 0.0694, o.0627,C. 05 71, 0.05 22,0.0480, 0.0412, 0.0385, 0.0337, 
50.0278,0.0206,0.0105,0.0  ,0.1 850,0. 1520,0.1250,0.1140,0.1050, 

60. 0904,0. 0795,°. 0708, 0.0636, 0.0523, 0.0478, 0.0405, 0.0323, 0.0229, 
70.0114,0.0  ,0.53 10, 0.  30 70, 0.21 20,0.  1830, 0.16  00, 0.  1280,0.  1060, 

80.0894,0.0780,0.0612,0.0550,0.0455,0.0354,0.0246,0.0120,0.0 
40. 75 50, 0.3720,0. 2400,0.2020,0. 1/50,0.  I  370, 0.1  120, 0.09 42, 0.081  1  , 
AO. 06  31 ,0.0  666, 0.0466,0.036 1, 0.0250,0. 0 122 ,0 .0  ,0.9120,0.4110, 

80.2660,0.2140,0.  1840,0.  1420,0.  1  150,0.  046 7 , 0. 08 30 ,0. C64 3 , 0 . 0 6 7 5 , 
CO. 04/2,0. 0365, n. 0252, 0.0122, 0.0  ,0.9/ 00, 0.4200, 0.2600,0. 2200, 

00. 1900,0. 1460,^.11/0, 0.0480,0.0840,0. 0653,0.0584,0.0478,0.0369, 
EO. 0264,0. 0123, 6.0  / 


OA  Tm 

OK/ 

0. 

0, 

0. 

0,  0. 

0, 

0 

.0, 

0. 

0, 

0. 

0,  0. 

0, 

0. 

0, 

0. 

0, 

1 

0. 

0,  0. 

0, 

0. 

.0, 

0.0, 

0. 

,0 

»  0  • 

0, 

0 

.0, 

22.6, 

21  , 

.5, 

20. 

4, 

19, 

.9 

2 

19. 

4  ,  18. 

5, 

17, 

.6, 

16.8, 

lb, 

.  1 

,  14. 

8, 

14 

.2, 

13.2, 

12, 

.0, 

1C. 

4, 

8, 

.6 

3 

7. 

7,  67. 

3, 

57, 

.9, 

50.2, 

4  7. 

.0 

,  44. 

1  , 

36 

.3, 

36.4, 

32, 

.1. 

29. 

3, 

24, 

.8 

4 

22. 

9,  14. 

/, 

16, 

.3, 

12.7, 

9. 

.4 

,  8. 

1, 

132 

.0, 

9b.  5, 

77, 

.4  , 

69. 

7, 

63. 

.2 

5 

52. 

9,  44. 

7, 

3°. 

33.4, 

26, 

,4 

,  23. 

9, 

20 

.  1 

1 6  •  4  , 

12. 

.7, 

9. 

4, 

8, 

.  1 

6 

140. 

0,167. 

C, 

103. 

,0, 

86.  1, 

73. 

,  4 

t  56* 

7, 

46 

.2, 

38.9, 

33, 

.6, 

26. 

4, 

24, 

.0 

7 

20. 

2,  16. 

4, 

12, 

,8, 

9.5, 

8. 

,2 

,405. 

0, 

1  7  C 

.0, 

1 U4 • 0 , 

86. 

.3, 

73. 

6, 

56. 

,  8 

8 

4b. 

3,  38. 

9, 

31, 

.  /, 

26.5, 

24. 

.  1 

,  20. 

3, 

16 

.5, 

12.8, 

9, 

.5, 

8. 

2, 

421. 

,0 

9171. 

0,104. 

c  * 

86. 

.6, 

73.9, 

57. 

.  1 

,  46. 

4, 

36 

.0, 

33.8, 

26. 

.8  , 

24. 

3. 

20. 

,5 

A 

16. 

6,  11. 

C, 

9  . 

.8, 

8.4, 

446  . 

,0 

,172. 

0, 

105 

.0, 

87.4, 

74. 

.0. 

58. 

0, 

46. 

,6 

H 

39. 

2,  i;. 

0, 

27. 

,0, 

24.6, 

20, 

.7 

t  1 6  • 

7, 

1  3 

.0, 

1 0 . 0  , 

8. 

.4/ 

OA  TA 

EC , R  TCEG/f. 

,C1 

,2.0,4 

.0,5. 

O 

( 7 • 

O 

,8 

.0, 

10. 

0,12.0 

f  1  4  « 

.0, 

18.  , 

20 

•  f 

124. ,  10. ,  40. ,60. ,  90. ,57.29578/ 

OAT  A  RD/0.01 , 10. , 30. ,60. , 200.  ,400. ,  1000. ,2000. / 

IFIR.LT.  .0.0)00  TC  3U0 
KG  =  K/  1 . 8520*00 
00  100  1  EC  -  2 ,  l  4 
I=17-IEU 

IFIE. GL.ECI  I  )  KO  TO  120 
ICO  CONTINUE 

1  =  1 

120  OU  200  J  R C  =  2 , 8 

J= 10-JR0 

IF 'RG.GE .RDIJIIGC  TO  220 
200  CONTINUE 
J  =  1 

220  IF  I J.EU. 8 1 GU  TO  340 

ZR  * AL  UG I  RG/ROI J 1 I  / ALOG I RO I J* 1 l/ROIJ) 1 

IFIF. LL.O.OIGU  TC  320 

ZE  =  ALUG<  E/EOI I 11/ALUGI EOI  I* 1 l/EOl  I  ) ) 

DE 1=1  ICE  I  I* 1, JI-CEI I , J 1 1*1 l.-ZKI* (OEI I , J* 1 l-OEl I ,J)I*ZR )*ZE 
DE2=(  ( CEI I , J* 1 1-OEI I , J 11*1 1 .-ZE l*(CE( 1*1 , J*1 1-OEI I , J* 1 ) ) *ZE ) *ZR 
OEE  =  OE 1+CE2+CEI  I , J  I 

OR  1  =  1  (D.<  I  I*  1 ,  Jl-CRI  I  ,  J  II*  (  1  . -ZR1+IUK1  I  ,  J*  1 1  -OKI  I  •  J  )  )  *ZR  )  *Z  t 
0R2= 1 (OKI  I , J* 1 l-CRI I , J ))*< 1 .-ZEl  +  ICRI 1*1 , J*  1  l-CKI 1 , J*1 ll*ZE) *ZR 
ORR=(OKl*CR2*Ou( I, J) ) 

GO  Tl!  4Q0 
300  OE £  =  0 . 0 
0RR  =  O .  0 


GO  Tl)  400 

320  0EE=DEI I , Jl* IOFI I , J+11-0EI  I , J)I*ZR 
ORR  =  OR  (  I  ,  J  l  +  ID'M  I  ,  J*  1  I -OR  II  ,  J  I  )*ZR 

GO  TU  400 

34U  OELT=<  E-EOI I  I) /(EOI I* 1  I -EOI  1 1) 

DEE  =  nELT*(OE( I ♦ 1, J 1-OEI I , J  II* DEI  1 , Jl 
ORR  =  DElT*(CR( 1*1, J 1-08  I  1 , J  )  )  *  OK  I  I , J ) 
400  ORR=OKR* . 30480-03 
RETURN 
ENO 
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